1 IF PEEK(1)<>53 THEN PRINT"ZUERST SWIFTLOAD LADEN!":END
2 GOSUB4:GOSUB4:PRINT"CHECKSUMMER V3.1 AKTIVIERT"
3 PRINT"(DE)AKTIVIEREN MIT SYS$E460":SYS$E460:END
4 READV,B
5 FOR I=V TO B:READ A:POKE I,A:NEXT
6 RETURN
7 DATA58464,58539,162,1,169,64,93,49,165,157,49,165
8 DATA169,240,202,16,245,96,169,0,170,133,254,200,177
9 DATA95,240,61,201,32,240,247,133,255,138,41,7,170
10 DATA240,13,72,165,255,201,128,42,202,208,250,133
11 DATA255,104,170,232,165,255,24,101,254,76,115,228
12 DATA32,210,255,76,128,164,19,32,32,32,32,32,19,18
13 DATA60,0
14 DATA58551,58585,192,4,48,195,198,214,165,214,72
15 DATA160,228,169,162,32,30,171,166,254,169,0,32,205
16 DATA189,169,62,32,210,255,104,133,214,169,141,208,194